home *** CD-ROM | disk | FTP | other *** search
/ CD School House 9 / CD School House 9.0 - Wayzata Technology (1994).iso / pc / games / mac / __the_arcade__ / broadside_2.0 / stack_-1.xml < prev    next >
Extensible Markup Language  |  1991-12-22  |  3KB  |  27 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0</name>
  5.     <id>-1</id>
  6.     <cardCount>7</cardCount>
  7.     <cardID>2985</cardID>
  8.     <listID>6380</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstackglobal SoundOn,GameInProgress,BlueOpponent,RedOpponentput false into GameInProgressif there is not a menu "Broadside" thencreate menu "Broadside"end ifput "About BroadsideΓǪ" into menu "Broadside" with menuMessage "About"put "Instructions" after menu "Broadside" with menuMessage "GetHelp"put "--" after menu "Broadside"put "Sound On" after menu "Broadside" with menuMessage "ToggleSound"set the checkMark of menuItem 4 of menu "Broadside" to trueput "--" after menu "Broadside"put "Computer OpponentΓǪ" after menu "Broadside" with menuMessage "ComputerOpponent"put "Human Opponent" after menu "Broadside" with menuMessage "HumanOpponent"set the checkMark of menuItem 7 of menu "Broadside" to trueput "Human" into BlueOpponentput "Human" into RedOpponentput true into SoundOnend openstackon closestackif there is a menu "Broadside" thendelete menu "Broadside"end ifend closestackon ToggleSoundglobal SoundOnput not(SoundOn) into SoundOnset the checkMark of menuItem 4 of menu "Broadside" to NOT(the checkMark of menuItem 4 of menu "Broadside")end ToggleSoundon GetHelpvisual checkerboardgo cd 1 of bg "Instructions"end GetHelpon Aboutshow bg fld "About"repeat until the mouse is downset cursor to "Red"wait 30set cursor to "Blue"wait 30end repeathide bg fld "About"end Abouton ComputerOpponentglobal BlueOpponent,RedOpponentset the checkMark of menuItem 6 of menu "Broadside" to trueset the checkMark of menuItem 7 of menu "Broadside" to falseif the optionKey is down thenanswer "Which Navy is to be the computer?" with "Red" or "Blue" or "Both"put it into anselseanswer "Which Navy is to be the computer?" with "Red" or "Blue"put it into ansend ifif ans = "Both" thenput "Computer" into RedOpponentput "Computer" into BlueOpponentelse if ans = "Red" thenput "Computer" into RedOpponentput "Human" into BlueOpponentelseput "Human" into RedOpponentput "Computer" into BlueOpponentend ifend ComputerOpponenton HumanOpponentglobal BlueOpponent,RedOpponentput "Human" into Opponentset the checkMark of menuItem 6 of menu "Broadside" to falseset the checkMark of menuItem 7 of menu "Broadside" to trueput "Human" into BlueOpponentput "Human" into RedOpponentend HumanOpponent</script>
  17.     <background id="2095" file="background_2095.xml" name="Instructions" />
  18.     <background id="2759" file="background_2759.xml" name="" />
  19.     <card id="2985" file="card_2985.xml" marked="false" name="" owner="2759" />
  20.     <card id="2309" file="card_2309.xml" marked="false" name="" owner="2095" />
  21.     <card id="4491" file="card_4491.xml" marked="false" name="" owner="2095" />
  22.     <card id="4614" file="card_4614.xml" marked="false" name="" owner="2095" />
  23.     <card id="4289" file="card_4289.xml" marked="false" name="" owner="2095" />
  24.     <card id="5341" file="card_5341.xml" marked="false" name="" owner="2095" />
  25.     <card id="5490" file="card_5490.xml" marked="false" name="" owner="2095" />
  26. </stack>
  27.